CSi Master: Ableton Live 5/CSi Master: Ableton Live 5.iso/pc/rsrc/locrsrc/cstshared.cst/00014_keycheckLOGIC.ls

Text File | 2005-07-28 | 5.5 KB | 237 lines

on keycheckLOGIC_OLD

  --------------- REWIND -------------------v
  if the keyCOde = 123 then -- LEFT
    -- puppetSound "PSM text button beep"
    set the member of sprite 15 to member "rewind on"

    case (the name of member (the member of sprite 32)) of
      "QT pause":
        nothing
      "QT play":
        set the castNum of sprite 32 to the number of cast "QT pause"
    end case

    updateStage

    repeat while soundBusy(1)
      nothing
    end repeat

    if the optiondown then
      set the movierate of sprite 46 to -3
    else
      set the movierate of sprite 46 to -2
    end if

    global gQTcontrolRatio
    set the locH of sprite 31 to ((the left of sprite 19) + ((the mtime of sprite 46)/gQTcontrolRatio) + 7)
    updatestage

  end if

  --------------- FST FWD -------------------v
  if the keyCOde = 124 then -- RIGHT
    -- puppetSound "PSM text button beep"
    set the member of sprite 16 to member "fast forward on"

    case (the name of member (the member of sprite 32)) of
      "QT pause":
        nothing
      "QT play":
        set the castNum of sprite 32 to the number of cast "QT pause"
    end case

    updateStage

    repeat while soundBusy(1)
      nothing
    end repeat

    if the optiondown then
      set the movierate of sprite 46 to 3
    else
      set the movierate of sprite 46 to 2
    end if
  end if

  --------------- PLAY PAUSE -------------------v
  if the key = SPACE then
    puppetSound "PSM text button beep"
    updateStage

    repeat while soundBusy(1)
      nothing
    end repeat

    puppetSound 0
    updateStage

    case (the name of member (the member of sprite 32)) of
      "QT pause":
        set the member of sprite 32 to member "pause button dn"
        updatestage
        starttimer
        repeat while the mousedown
        end repeat
        repeat while the timer < 14
        end repeat
        set the movieRate of sprite 46 to 0
        set the castNum of sprite 32 to the number of cast "QT play"
      "QT play":
        set the member of sprite 32 to member "play button dn"
        updatestage
        starttimer
        repeat while the mousedown
        end repeat
        repeat while the timer < 14
        end repeat
        set the movieRate of sprite 46 to 1
        set the castNum of sprite 32 to the number of cast "QT pause"
    end case

    updateStage
  end if


  --    if the key = "t" then
  --      put "--------->" & the movietime of sprite 46
  --    end if
  --
  --  if the key = "," then
  --    set the movierate of sprite 46 to -1
  --  end if
  --  if the key = "." then
  --    set the movierate of sprite 46 to 1
  --  end if
  --  if the key = "-" then
  --    set the movierate of sprite 46 to -2
  --  end if
  --  if the key = "=" then
  --    set the movierate of sprite 46 to 2
  --  end if


  -- ADJUSTED FOR GCHELP!!!!!!!

  if the commandDown and the key = "q" OR the keyCode = 53 then
    openQuitBoxFromIE
  end if

  -->> DOWN ARROW KEY
  if the keyCOde = 125 then

    put the timer into vStartTime

    put the soundlevel into vLevel

    if vLevel > 0 then
      set vLevel = vLevel - 1
      updateStage
    end if

    set the soundlevel = vLevel

    puppetSound "volume beep"
    updateStage

  end if

  -->> UP ARROW KEY
  if the keyCOde = 126 then

    put the timer into vStartTime

    put the soundlevel into vLevel
    if vLevel < 7 then
      set vLevel = vLevel + 1
      updateStage
    end if

    set the soundlevel = vLevel

    puppetSound "volume beep"
    updateStage

  end if

  -- CATCH TUTORIAL (SO KEY COMANDS BELOW WON'T APPEAR)
  global TutorialMovie
  if TutorialMovie = 1 then
    exit
  end if

  global gBrowserMoviePath

  if the keyCode = 114 or (the commandDown and the keyCode = 44) or (the commandDown and the key = "h") then
    global helpBox
    if objectP(helpBox) then
      closeHelpBox
    else
      showHelpBox
    end if
  end if

  global hideDesk, gPrint
  if the commandDown and the key = "o" then
    TELL THE STAGE TO openControllerWindow
  end if

  if the commandDown and the key = "m" then
    global gAllMute, gSavedSoundLevel

    if gAllMute = 0 then
      put the soundlevel into gSavedSoundLevel
      set the soundlevel = 0
      set gAllMute = 1
    else
      set the soundlevel = gSavedSoundLevel
      set gAllMute = 0
    end if
  end if

  if (the keyCode = 113 and the machineType <> 256) or (the commandDown and the key = ENTER and the machineType <> 256) then

    tell the stage

      ----- TAKEN OUT BECAUSE OF OSX ERROR -----
      --      if objectP(finderSwitch) then
      --        finderSwitch(mDispose)
      --      end if
      --
      --      openXlib (the pathName & "FinderSwitcher XObj")
      --
      --      put FinderSwitcher(mNew) into finderSwitch
      --      if objectP(finderSwitch) then finderSwitch(mSwitchToFinder)

    end tell

  end if

  if the commandDown and the key = "n" then
    global gMute,gFade, gAllMute
    if (gMute = 1) then
      if gFade <> 1 and gAllMute <> 1 then
        set the volume of sound (2) to 255
      end if

      set gMute = 0
    else
      if gMute = 0 then
        set the volume of sound (2) to 0

        set gMute = 1
      end if
    end if
    updateStage
  end if

  if the commandDown and the key = "w" then
    global gControllerWindow
    if objectP(gControllerWindow) then
      TELL THE STAGE TO forget gControllerWindow
    end if
  end if

end